
#!usr/lib/perl
use warnings;
use 5.014;
use utf8;

my $one;
my $two;

$one = 2;
$two = 5;

my $result = $one * $two;

my @res =  ($one, $two, $result);

push(@res, "uhuuuu!");
my @resRev = reverse(@res);


say $result;
foreach my $res1 (@res){
	say $res1;
	}
	
foreach (@resRev){
	say $_;
	}